home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / BASIC / MENU (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1983-10-14  |  2.6 KB  |  111 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  ONERR  GOTO 6000
  2. 2  POKE 104,8: POKE 103,1
  3. 3  PRINT  CHR$(21)
  4. 4  TEXT : GOSUB 5000
  5. 5  POKE 34,0: POKE 33,40: POKE  -16368,0
  6. 10  HOME :T$ = "Getting Down to BASIC Menu"
  7. 15  GOSUB 1000
  8. 25  FOR U = 1 TO 40: PRINT "_";: NEXT U
  9. 30  PRINT : PRINT "  1.  Introduction"
  10. 40  PRINT : PRINT "  2.  Printing Numbers and Calculations"
  11. 50  PRINT : PRINT "  3.  Printing Words"
  12. 60  PRINT : PRINT "  4.  Writing Programs"
  13. 70  PRINT : PRINT "  5.  Saving Programs"
  14. 80  PRINT : PRINT "  6.  All About Variables"
  15. 100  PRINT : PRINT "  7.  Quit"
  16. 103 T = 0
  17. 105  FOR I = 1 TO 7
  18. 106  IF  PEEK(I +927) = 1  THEN  HTAB (1): VTAB 2 +(2 *I): PRINT "*"
  19. 107  IF  PEEK(I +927) = 1  THEN J = I +1:T = 1
  20. 110  NEXT I
  21. 115  IF T < >1  THEN J = 1
  22. 120  GOSUB 2000
  23. 145  VTAB 17
  24. 150  PRINT : PRINT "Type a number, or select with the UP or DOWN ARROW key. Then press RETURN."
  25. 160  FOR U = 1 TO 40: PRINT "_";: NEXT U
  26. 165  PRINT : PRINT "* marks a topic you have completed"
  27. 166  PRINT 
  28. 167  REM PRINT "Copyright 1987 Apple Computer, Inc.";
  29. 170  VTAB 19: HTAB 36: CALL  -868: GET CH$
  30. 175  IF  ASC(CH$) = 13  THEN  GOTO 280
  31. 176  IF  ASC(CH$) < >10  AND  ASC(CH$) < >11  THEN 185
  32. 177  IF  ASC(CH$) = 10  THEN K = J:J = J +1
  33. 178  IF  ASC(CH$) = 11  THEN K = J:J = J -1
  34. 179  IF J = 8  THEN J = 1
  35. 180  IF J = 0  THEN J = 7
  36. 181  GOSUB 2200: GOSUB 2000: GOTO 170
  37. 185  IF  ASC(CH$) = 81  OR  ASC(CH$) = 113  THEN K = J:J = 7: GOTO 181
  38. 190  IF  ASC(CH$) <49  OR  ASC(CH$) >55  THEN 170
  39. 193  VTAB 19: HTAB 36: PRINT CH$:K = J:J =  ASC(CH$) -48: GOSUB 2200: GOSUB 2000
  40. 195  VTAB 19: HTAB 37: GET RE$
  41. 200  IF  ASC(RE$) = 13  THEN 280
  42. 205  IF  ASC(RE$) = 8  THEN 170
  43. 210  IF  ASC(RE$) = 10  THEN K = J:J = J +1: GOTO 179
  44. 215  IF  ASC(RE$) = 11  THEN K = J:J = J -1: GOTO 179
  45. 220  IF  ASC(RE$) <49  OR  ASC(RE$) >55  THEN 195
  46. 222  VTAB 19: HTAB 36: PRINT RE$
  47. 225 K = J:J =  ASC(RE$) -48: GOSUB 2200: GOSUB 2000: GOTO 195
  48. 280  HOME : VTAB 10: HTAB 13: PRINT "Please wait..."
  49. 290  ON J GOTO 310,320,330,340,350,360,370
  50. 310  PRINT : PRINT  CHR$(4);"RUN INTRO"
  51. 320  PRINT : PRINT  CHR$(4);"RUN PRINT"
  52. 330  PRINT : PRINT  CHR$(4);"RUN WORDS"
  53. 340  PRINT : PRINT  CHR$(4);"RUN PROGRAM"
  54. 350  PRINT : PRINT  CHR$(4);"RUN RUNSAVER"
  55. 360  PRINT : PRINT  CHR$(4);"RUN RUNNUMERIC"
  56. 370  PRINT : PRINT  CHR$(4);"RUN QUIT"
  57. 999  END 
  58. 1000 H = (40 - LEN(T$))/2
  59. 1010  HTAB H: PRINT T$
  60. 1020  RETURN 
  61. 1560  REM IF VAL (CH$) < 1 OR  VAL (CH$) > 7 THEN  VTAB 20: HTAB 19: CALL  - 868: GOTO 175
  62. 2000  ON J GOSUB 2110,2120,2130,2140,2150,2160,2170
  63. 2020  VTAB 2 +(J *2): HTAB 6: PRINT T$;
  64. 2110 T$ = "<INTRODUCTION>"
  65. 2115  RETURN 
  66. 2120 T$ = "<PRINTING NUMBERS AND CALCULATIONS>"
  67. 2125  RETURN 
  68. 2130 T$ = "<PRINTING WORDS>"
  69. 2135  RETURN 
  70. 2140 T$ = "<WRITING PROGRAMS>"
  71. 2145  RETURN 
  72. 2150 T$ = "<SAVING PROGRAMS>"
  73. 2155  RETURN 
  74. 2160 T$ = "<ALL ABOUT VARIABLES>"
  75. 2165  RETURN 
  76. 2170 T$ = "<QUIT>"
  77. 2175  RETURN 
  78. 2200  ON K GOSUB 2210,2220,2230,2240,2250,2260,2270
  79. 2205  VTAB 2 +(K *2): HTAB 6: PRINT T$;
  80. 2210 T$ = " Introduction "
  81. 2215  RETURN 
  82. 2220 T$ = " Printing Numbers and Calculations "
  83. 2225  RETURN 
  84. 2230 T$ = " Printing Words "
  85. 2235  RETURN 
  86. 2240 T$ = " Writing Programs "
  87. 2245  RETURN 
  88. 2250 T$ = " Saving Programs "
  89. 2255  RETURN 
  90. 2260 T$ = " <CTRL-0x01>All About Variables "
  91. 2265  RETURN 
  92. 2270 T$ = " Quit "
  93. 2275  RETURN 
  94. 5000  FOR I = 768 TO 861: READ A: POKE I,A: NEXT I
  95. 5010  DATA 173,50,190,72,173,51,190  
  96. 5020  DATA 72,169,30,141,50,190,169 
  97. 5030  DATA 3,141,51,190,32,111,253  
  98. 5040  DATA 104,141,51,190,104,141,50 
  99. 5050  DATA 190,96,32,27,253,201,155 
  100. 5060  DATA 240,31,201,141,208,35,96  
  101. 5070  DATA 234,234,234,162,0,32,117 
  102. 5080  DATA 253,160,2,138,145,105,200 
  103. 5090  DATA 169,0,145,105,200,169,2 
  104. 5100  DATA 145,105,76,57,213,141,0 
  105. 5110  DATA 2,169,141,162,1,96,201 
  106. 5120  DATA 136,240,8,201,149,240,04 
  107. 5130  DATA 201,160,144,1,96,169,160
  108. 5140  DATA 56,176,192 
  109. 5150  RETURN 
  110. 6000  PRINT : PRINT  CHR$(4);"RUN STARTUP"
  111. 32000  REM COPYRIGHT 1986, 1988 APPLE COMPUTER, INC.